From: Karl Heuer Date: Thu, 2 Nov 1995 04:37:30 +0000 (+0000) Subject: Don't require initial whitespace in vendor name. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~85693 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f81dbe564cecdfef5cdec9c1e3257fcab6b36c82;p=emacs.git Don't require initial whitespace in vendor name. --- diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 32502e2d979..9aa3b7d5791 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -704,7 +704,7 @@ This is in addition to the primary selection.") ;; Sun expects the menu bar cut and paste commands to use the clipboard. ;; This has ,? to match both on Sunos and on Solaris. -(if (string-match " Sun Microsystems,? Inc\\." +(if (string-match "Sun Microsystems,? Inc\\." (x-server-vendor)) (menu-bar-enable-clipboard))